Creating images with R

“with a little bit of magick”

h1{font-weight: Bold}

h2{font-weight: Bold}

p {font-size: 18px}

body {
  Font-Family: 'Arial';
  background-color: :white;
}

My meme

This meme represents my frustration at my occasional inability to create the art I want to.

Original_character_meme

library(magick)
library(tidyverse)

# make gray box with word expectation
Expectation_text <- image_blank(width = 300, 
                                height = 300,
                                color = "#f2f2f2") %>%
  image_annotate(text = "EXPECTATION...", 
                 color ="#000000", 
                 size = 30, 
                 font = "Arial",
                 gravity = "center",
                 strokecolor = "#000000") %>%
  image_border(color = "#000000", geometry = "1x1")

# make gray box with word reality
Reality_text <- image_blank(width = 300, 
                            height = 300,
                            color = "#f2f2f2") %>%
  image_annotate(text = "REALITY...", 
                 color ="#000000", 
                 size = 30, 
                 font = "Arial",
                 gravity = "center") %>%
  image_border(color = "#000000", geometry = "1x1")

Expectation_image <- image_read("original_character.jpg") %>%
  image_scale(300) %>%
  image_border(color = "#000000", geometry = "1x1")

Reality_image <- image_read("reality_image.jpg") %>%
  image_scale(300) %>%
  image_border(color = "#000000", geometry = "1x1")

# top row of meme
Expectation <- image_append(c(Expectation_text, Expectation_image))

# bottom row of meme
Reality <- image_append(c(Reality_text, Reality_image))

# description above meme
description_text <- image_blank(width = 600, 
                                height = 50,
                                color = "#f2f2f2") %>%
  image_border(color = "#000000", geometry = "1x1") %>%
  image_annotate(text = " Drawing an original character: ",
                 size = 40,
                 font = "Arial")

# combine and export meme
complete_meme <- c(description_text, Expectation, Reality) %>%
  image_append(stack = TRUE) %>%
  image_write("original_char_meme.png") 

My animated GIF

This GIF was made to visually convey the feeling of poor internet connection, which I occasionally have.

poor_internet_gif

library(magick)
library(tidyverse)

# blank spaces around the photo where text rotates

blank_text_box <- image_blank(width = 300, 
                              height = 20,
                              color = "white")

sideways_blank_box <- image_rotate(blank_text_box, degrees = 90)

# rotating text

text_for_animation <- image_blank(width = 300, 
                                  height = 20,
                                  color = "white") %>%
  image_annotate(text = "Why is this video not loading?", 
                 color ="#000000",
                 size = 20, 
                 font = "Times New Roman")

sideways_text <- image_rotate(text_for_animation, degrees = 90)

upside_down_text <- image_rotate(text_for_animation, degrees = 180)

# text for top vector

text_for_frame_2 <- image_append(c(blank_text_box, text_for_animation))

# photo and text for middle vector

middle_frame_1 <- image_append(c(sideways_blank_box, frozen_vid_1, sideways_blank_box))

middle_frame_2 <- image_append(c(sideways_blank_box, frozen_vid_2, sideways_blank_box))

middle_frame_3 <- image_append(c(sideways_blank_box, frozen_vid_3, sideways_text))

middle_frame_4 <- image_append(c(sideways_blank_box, frozen_vid_4, sideways_blank_box))

middle_frame_5 <- image_append(c(sideways_blank_box, frozen_vid_5, sideways_blank_box))

middle_frame_6 <- image_append(c(image_rotate(sideways_text, degrees = 180), frozen_vid_6, sideways_blank_box))

middle_frame_7 <- image_append(c(sideways_blank_box, frozen_vid_7, sideways_blank_box))

middle_frame_8 <- image_append(c(sideways_blank_box, frozen_vid_8, sideways_blank_box))

#text for bottom vector

bottom_frame_4 <- image_append(c(blank_text_box, upside_down_text))

bottom_frame_5 <- image_append(c(upside_down_text, blank_text_box))

# frames for loading video
frozen_vid_1 <- image_read("A1.jpg") %>%
  image_scale(600)

frozen_vid_2 <- image_read("A2.jpg") %>%
  image_scale(600)

frozen_vid_3 <- image_read("A3.jpg") %>%
  image_scale(600)

frozen_vid_4 <- image_read("A4.jpg") %>%
  image_scale(600)

frozen_vid_5 <- image_read("A5.jpg") %>%
  image_scale(600)

frozen_vid_6 <- image_read("A6.jpg") %>%
  image_scale(600)

frozen_vid_7 <- image_read("A7.jpg") %>%
  image_scale(600)

frozen_vid_8 <- image_read("A8.jpg") %>%
  image_scale(600)

# combining vector into frame for animation

frame_1 <- c(text_for_animation, middle_frame_1, blank_text_box) %>%
  image_append(stack = TRUE)

frame_2 <- c(text_for_frame_2, middle_frame_2, blank_text_box) %>%
  image_append(stack = TRUE)

frame_3 <- c(blank_text_box, middle_frame_3, blank_text_box) %>%
  image_append(stack = TRUE)

frame_4 <- c(blank_text_box, middle_frame_4, bottom_frame_4) %>%
  image_append(stack = TRUE)

frame_5 <- c(blank_text_box, middle_frame_5, bottom_frame_5) %>%
  image_append(stack = TRUE)

frame_6 <- c(blank_text_box, middle_frame_6, blank_text_box) %>%
  image_append(stack = TRUE)

frame_7 <- c(blank_text_box, middle_frame_7, blank_text_box) %>%
  image_append(stack = TRUE)

frame_8 <- c(blank_text_box, middle_frame_8, blank_text_box) %>%
  image_append(stack = TRUE)

# animating loading video
video_vector <- c(frame_1, frame_2, frame_3, frame_4, frame_5, frame_6, frame_7, frame_8)

loading_video <- image_morph(video_vector) %>%
    image_animate(fps = 12.5, )

image_write(loading_video, "loading_video_gif.gif")

All media used was original